unit EMSQBReg;

{$I QBuilderVerCtrl.inc}

interface

procedure Register;

implementation

uses
  {$IFDEF VCL16}
    System.Classes,
    DesignIntf,
    Winapi.Windows,
  {$ELSE}
    Classes,
    {$IFNDEF VCL6}
      DsgnIntf,
    {$ELSE}
      DesignIntf,
    {$ENDIF}
    Windows,
  {$ENDIF}
  QBWindow,
  QBIBWindow,
  QBMyWindow,
  QBMSWindow,
  QBPgWindow,
  QBDb2Window,
  QBDbiWindow,
  QBOracleWindow,
  QBOpersEditor,
  EMSQBDsgn,
  QBParser;

{$R *.DCR}

procedure Register;
begin
  RegisterComponents('EMS Advanced Query Builder 2005', [TSQLQueryBuilder,
    TInterBaseQueryBuilder, TMySQLQueryBuilder, TPgSQLQueryBuilder,
    TMSSQLQueryBuilder, TDb2QueryBuilder, TDbiQueryBuilder,
    TOracleQueryBuilder]);
  RegisterPropertyEditor(TypeInfo(HKEY), TQBStorage,
    'RegistryRoot', TQBHKEYProperty);
  RegisterPropertyEditor(TypeInfo(string), TQBStorage,
    'IniFileName', TQBIniFileNameProperty);
  RegisterPropertyEditor(TypeInfo(TQBOperators), TFullQueryBuilder, '',
     TOperatorsProperty);
  RegisterPropertyEditor(TypeInfo(String), TFullQueryBuilder,
    'About', TQBAboutProperty);
  RegisterPropertyEditor(TypeInfo(String), TFullQueryBuilder,
    '_Version', TQBVersionProperty);
  RegisterComponentEditor(TFullQueryBuilder, TQBEditor);
end;

end.